/* GUI CONVERTED from mgurmt.i (converter v1.76) Wed Aug 21 09:40:59 2002 */
/* mgurmt.i - USER MAINTENANCE INCLUDE FILE                                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.9.1.16 $                                                       */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.0      LAST MODIFIED: 06/24/92   BY: rwl *F675*                */
/* REVISION: 7.3      LAST MODIFIED: 01/14/93   BY: sas *G519*                */
/* REVISION: 7.3      LAST MODIFIED: 02/11/93   BY: rwl *G671*                */
/* REVISION: 7.4      LAST MODIFIED: 11/17/93   BY: rwl *H231*                */
/* REVISION: 7.5      LAST MODIFIED: 01/06/95   BY: mwd *J034*                */
/* REVISION: 7.5      LAST MODIFIED: 03/29/95   BY: ktn *J034*                */
/* REVISION: 8.5      LAST MODIFIED: 02/07/97   BY: jpm *J1H4*                */
/* REVISION: 8.6      LAST MODIFIED: 04/15/97   BY: *J1W5* Patrick Rowan      */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan         */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane   */
/* REVISION: 9.1      LAST MODIFIED: 08/13/00   BY: *N0KR* Mark Brown         */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.9.1.3       BY: Indu Arora        DATE: 07/11/01  ECO: *N0ZS*  */
/* Revision: 1.9.1.4       BY: Katie Hilbert     DATE: 11/03/01  ECO: *P00B*  */
/* Revision: 1.9.1.7       BY: Katie Hilbert     DATE: 11/28/01  ECO: *P02D*  */
/* Revision: 1.9.1.8       BY: Vinod Nair        DATE: 03/18/02  ECO: *N1D5*  */
/* Revision: 1.9.1.9       BY: Jean Miller       DATE: 04/11/02  ECO: *P05F*  */
/* Revision: 1.9.1.13      BY: Rajesh Lokre      DATE: 06/12/02  ECO: *P06S*  */
/* Revision: 1.9.1.14      BY: Rajesh Lokre      DATE: 06/25/02  ECO: *P09Q*  */
/* Revision: 1.9.1.15      BY: Jean Miller       DATE: 08/06/02  ECO: *P08G*  */
/* $Revision: 1.9.1.16 $   BY: Jean Miller       DATE: 08/21/02  ECO: *P0G3*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

define variable user_passwd   as character format "x(16)" label "Password".
define variable l_email       as character no-undo.
define variable l_preferences as character no-undo.
define variable l-ui-menu-sub like mfc_logical initial no no-undo.
define variable menu_options  as character format "x(55)" no-undo.

define variable l-confirm-passwd like usr_passwd label "Confirm Password"
   no-undo.
define variable l_application    like usrl_product label "Application"
   no-undo.
define variable l_appl_desc      like lpm_desc label "Description" no-undo.
define variable l_active         like mfc_logical initial yes
   label "Active" no-undo.
define variable l_usrtype_code   like usr_type initial "1"
   label "User Type" no-undo.
define variable l_usrtype_desc   like glt_desc no-undo.
define variable l_valid_mnemonic like mfc_logical no-undo.
define variable l_active_date    as   date        label "Date" no-undo.


/*GUI preprocessor Frame A define */
&SCOPED-DEFINE PP_FRAME_NAME A

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
    usr_userid  colon 10
 SKIP(.4)  /*GUI*/
with frame a side-labels width 80 attr-space NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-a-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame a = F-a-title.
 RECT-FRAME-LABEL:HIDDEN in frame a = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame a =
  FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME a = FRAME a:WIDTH-CHARS - .5.  /*GUI*/

/*GUI preprocessor Frame A undefine */
&UNDEFINE PP_FRAME_NAME



/* SET EXTERNAL LABELS */
setFrameLabels(frame a:handle).

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
    usr_name    colon 12
    usr_lang           colon 12
   user_passwd        colon 12 blank
   usr_last_date      colon 52  label "Date Last Changed"
    usr_groups         colon 12 view-as editor no-box size 60 by 2
    usr_restrict       colon 12
 SKIP(.4)  /*GUI*/
with frame b side-labels width 80 attr-space THREE-D /*GUI*/.

 DEFINE VARIABLE F-b-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame b = F-b-title.
 RECT-FRAME-LABEL:HIDDEN in frame b = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame b =
  FRAME b:HEIGHT-PIXELS - RECT-FRAME:Y in frame b - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME b = FRAME b:WIDTH-CHARS - .5.  /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame b:handle).

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
l-confirm-passwd colon 23
 SKIP(.4)  /*GUI*/
with frame conf-passwd overlay side-labels
width 45 attr-space column 20 row 8 NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-conf-passwd-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame conf-passwd = F-conf-passwd-title.
 RECT-FRAME-LABEL:HIDDEN in frame conf-passwd = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame conf-passwd =
  FRAME conf-passwd:HEIGHT-PIXELS - RECT-FRAME:Y in frame conf-passwd - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME conf-passwd = FRAME conf-passwd:WIDTH-CHARS - .5.  /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame conf-passwd:handle).

FORM /*GUI*/ 
   l_application
   l_appl_desc
   l_active
   l_active_date
   usrl__qadt01   label "Last Access"
with frame c down width 80 retain 1
title color normal (getFrameTitle("APPLICATION_LIST",20)) THREE-D /*GUI*/.


/*SET EXTERNAL LABELS */
setFramelabels(frame c:handle).
